#!/usr/bin/env perl

use utf8;
use strict;

$^I="~";

while(<>){
	s/A/E/i;
	print;
}
